﻿'Quitado botón borrar
Public Class FormBajaEquipo

    Private _miCampeonato As Campeonato
    Private _idEquipo As Integer
    Private _idJugadorCapitan As Integer
    Private _idJugadorNormal As Integer

    Private Sub FormBajaEquipo_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = FormEntrada
        Me._miCampeonato = New Campeonato()
    End Sub

    Property idEquipo As Integer
        Get
            Return Me._idEquipo
        End Get
        Set(value As Integer)
            Me._idEquipo = value
        End Set
    End Property

    Property idJugadorCapitan As Integer
        Get
            Return Me._idJugadorCapitan
        End Get
        Set(value As Integer)
            Me._idJugadorCapitan = value
        End Set
    End Property

    Property idJugadorNormal As Integer
        Get
            Return Me._idJugadorNormal
        End Get
        Set(value As Integer)
            Me._idJugadorCapitan = value
        End Set
    End Property

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        FormBuscarEquipo.Show()
        FormBuscarEquipo.formularioDestino = "FormBajaEquipo"
    End Sub

    Private Sub ButtonModificarEquipo_Click(sender As Object, e As EventArgs) Handles ButtonModificarEquipo.Click

        Dim nombreCorrecto As Boolean = False
        If tbxBajaNombreEquipo.Text.Length = 0 Then
            ErrorProvider1.SetError(tbxBajaNombreEquipo, "Este campo no puede estar vacío")
        Else
            ErrorProvider1.SetError(tbxBajaNombreEquipo, Nothing)
            nombreCorrecto = True
        End If
        If nombreCorrecto = True Then
            Me._miCampeonato.eliminarEquipo(tbxBajaNombreEquipo.Text, Me._idJugadorCapitan, Me._idJugadorNormal, Me._idEquipo)
        End If


    End Sub

    Private Sub borrarFormulario()
        For Each control As Windows.Forms.Control In Me.Controls
            If TypeOf control Is GroupBox Then
                For Each controlText As Windows.Forms.Control In Me.GroupBox1.Controls
                    If TypeOf controlText Is TextBox Then
                        CType(controlText, TextBox).Clear()
                    End If
                Next
                For Each controlText As Windows.Forms.Control In Me.GroupBox2.Controls
                    If TypeOf controlText Is TextBox Then
                        CType(controlText, TextBox).Clear()
                    End If
                Next
            End If
        Next
        Me.tbxBajaNombreEquipo.Clear()
    End Sub

    Private Sub btnCancelar_Click(sender As Object, e As EventArgs) Handles btnCancelar.Click
        Me.Close()
    End Sub
End Class